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DECUS Program Library Write-up 


DECUS NO. 8-650 


AUTOMATED MEDICAL INTERVIEW WITH PEDIATRIC DATA FILES 


by 


David C. Mauger, M.B. 
Department of Pediatrics, 
School of Medicine, 
University of Auckland 


Introduction 


The package consists of a program, DRIVER, a segment of it, 
PRINT, and two data files, QTEXT and PTEXT. It is designed 
to administer a series of questions in an interactive, branching 
manner, to record and print a summary of the answers, and to 
generate a file of these for later reference. 

The questions supplied are of a pediatric medical nature, and 
are intended to relieve the doctor of the burden of personally 
eliciting some of the repetitious and standardised parts of the 
pediatric history, but the programs could administer without 
change, any series of questions. The questions need not be 
medical in nature. 


Requirements 


Any OS/8 system with BASIC. Our configuration comprises 8K 
core, one DEC tape as the system device, and an ASR33 teletype. 
Devices are not specified for the files in the programs, the 
system device being assumed; other users will wish to adapt 
these to their own configurations, in order to achieve greater 
efficiency. 

The programs store the answers temporarily as an array before 
creating a tape file. Users with a greater selection of 
peripherals may wish to modify the programs to create the files 
as the answers are entered. 


Description 

Questions are read from file QTEXT and printed on the teletype. 
The first two characters of the first line of each question are 
used to define the type of question (primary or modifying) and 
















and the number of lines of to be read. 

A choice of responses (RTEXT) is printed on the teletype 
immediately after the question. The responses may be any 
suitable terms, but are commonly No/Don't know/Yes/Don't 
understand, and a code for this format has been included. 

Primary questions can only be answered by No/Don't know/Yes, 
etc. If a primary question is answered by 'Yes', further 
related questions (modifying questions) are read from QTEXT 
and printed. The modifying questions may have No/Yes, etc. 
or free RTEXT. If the reply to a primary question is "No' 
or 'Don't know', the modifying questions are still read from 
the file but not printed. A 'Don't understand' reply causes 
the teletype bell to ring and the program loop back to re-enter 
the reply. 

The replies are stored as an array. Following completion of 
the last question text corresponding to all possible replies 
to a single question is read from PTEXT and one printed, 
depending on the recorded answer. 

The coded numeric replies are then stored as a tape file. 

The summary may be generated again from the coded file by 
running the program PRINT 


Operation 


1. Load the files to the system (or other) device using 
PIP 


Recommended file names:- DRIVER. BA 

PRINT. BA 

QTEXT 

PTEXT 

2. When the system is loaded and responds with a " . " , 
type R BCOMP (CR) where (CR) = return key. 

3. When the system responds with a " * " , type DRIVER. BA (CR) 


2 












« 



4. The program should then compile and start, typing 
"WHAT IS THE PATIENT NUMBER?" Respond by typing 
any string up to 6 characters to identify the person 
to be interviewed, e.g. AB1029 (CR) 



5. A series of questions will follow. The first is a 
dummy, for practise only. The last line of each 
question is always "YOUR ANSWER IS?" Reply by 
typing the most appropriate numeric character between 
1 and 9 e.g. 3 (CR) 

6. When the last question has been answered, a summary 
will be printed. If the need arises to terminate the 
program before all of the questions have been administered, 
type '99' as a reply to any question. A summary will 

be generated for the questions answered. e.g. in reply 
to "YOUR ANSWER IS?" type 99 (CR) 


The running of program PRINT is as for DRIVER, except that 
the reply to the question "WHAT IS THE PATIENT NUMBER" must 
be the name of a file previously created by DRIVER e.g. 
AB1029 (CR) 



Example 


Shown below is a sample run showing the initial dialogue, a 
primary and a modifying question, exit using 99, and the 
printed summary of the two questions. 
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. R BCQriP 
^DHI7EH•BA 

itiT IS THE: PATIENT NUMBER? UDOE. 
PRACTISE CHOOSING AN ANSWER. 

THE CHILD W£ ARE TALKING ABOUT IS: 

1 . A BOY 

2 . A G I R L 


TO UK ANSWER IS? 


--PRESS THE *1 * OR THE ’ 2 ’ KEY- 

-THEN THE 'RETURN’ KEY 

? JL 

OK t THAT'S FINE# HERE WE GO- 


ODER /{ERE 


WHEN THE MOTHER WAS PREGNANT WITH THIS CHILD 

WAS SHE TOLD BY DOCTOR OR MIDWIFE 

THAT SHE HAL) TOXAEMIA OR HIGH BLOOD PRESSURE? 


1 NO 

2 DON’T KUOV 

3 YES 

9 DON'T UNDERSTAND 


YOUR ANSWER IS? 3 

WERE ANY DRUGS OR MEDICINES PRESCRIBED TO TREAT 
THE TOXAEMIA? 

1 NO 

2 DON'T KNOW 

3 YES 

9 DON'T UNDERSTAND 
YOUR ANSWER IS?99 


THAT WAS THE LAST QUESTION. THANK YOU FOR YOUR HELP 
GOODBYE UDOE 


PAEDIATRIC SUMMARY JDOE OB/U9/73 


*** PRENATAL HISTORY *** 

TOXAEMIA tjyjo DRUGS PRESCRIBED 

QUESTIONS ANSWERED 'DONT UNDERSTAND': fei 
TOTAL W’JESTIONS ANSWERED: 2 
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DRIVER BA 




90 HEM PROGRAM DRIVER 

100 HEM THIS PROGRAM BRANCHES THRU MULT I CHOICE UUESTIONS 
lit) REM SET VARIABLES TO STARTING VALUES 
120 PRINT "VrirtT IS THE PATIENT NUMBEH”;\II'JP'JT MS 
130 DIM A ( 171) t TS(60) 

140 FOR K= 1 TO 1 70 \L£T AOO=0\NEXT K 
150 FILE ^I :"OTEXT" 

160 PkHJTNPRlNT "PRACTISE CHOOSING AN ANSWER." 

170 PHINT\PRINT "THE CHILD WE ARE TALKING ABOUT IS:" 

160 PRINT " l. A BOY" 

190 PRINT " 2. A GIRL" 

200 PRINT 

205 PRINT "YOUR ANSWER IS?"\PHINT 

210 PRINT "--PRESS THE * 1* OR THE *2• KEY-" 

22-0 PRINT " -THEN THE • RETURN• KEY OVER HERE" 

230 INPUT J 

240 PRINT "OK# THAT'S FINE# HERE WE GO-"\PH1NT 

250 LET K=1\LET .J = 1 \LET 0 = 1 

260 REM READ QTEXT M DEF NO OF LINES 

270 REM T DEF TYPE 1=PRIM# 7=MULTI QTEXT# 6=MULTI RTEXT#9=QTHER 
260 INPUT #1:T$\IF END *1 THEN 600 
290 LET M=WAL(SEG4(TS#1#1>> 

300 LET T = \/AL(SEGS< TS#2#2) ) 

310 LET T $ = S £ GS C T $ # 3 # 60 ) 

320 IF T=1 THEN 360 
330 IF C<>1 THEN 370 
340 IF T<>6 THEN 360 
350 PRINT " 1 "i 

360 PRINT Ts> 

370 FOR ii=2 TO M 
36'0 INPUT tflsTS 
390 IF T=l Then 430 
4'/)0 IF C<>1 THH'.N 440 
410 IF T<>6 THEN 430 
420- PRINT Hi 
430 PRINT T$ 

440 NEXT il 

450 REM READ MULTI RTEXT 
460 IF T = 7 THEN 260 
470 REM YES/NO RTEXT 
460 IF T =1 THEN 510 
490 IF C<>1 THEN 760 
500 IF T =6 THEN 560 
510 PRINT 
520 PRINT "1 NO" 

530 PRINT "2 DON’T KNOW" 

540 PRINT "3 YES" 

550 print "9 don’t understand" 

560 PRINT 

570 PRINT "YOUR ANSWER IS"; 

560 INPUT A CIO 

590 IF A 00=99 Tit EM 600 

600 IF AC K)<>9 THEN 6 30 


5 





61* PKINTNPRINT "PLEASE CALL HOSTESS" \PRINT PNT<7> 

620 LET DC <j ) =K\LET J=J + 1 \GO TO 560 

630 HEM CHECK FQrt ILLEGAL ANSWERS 

643 IF T<>6 THEN 663 

653 IF AC K)<=M + 1 THEN 690 

660 IF A C K) < = 3 THEN 690 

670 PRINT "ANSWER I NCORRECT-PLKASE CALL HOSTESS" > PNTC 7 ) > pfJTC 7 ) 

660 PRINTjPNT C 7)\G0TO 560 

690 KEN STORE ANSWER TO LAST PRIM QUESTION AS C 

700 LET 0=0+1 

713 IF To 1 THEN 750 

720 IF ACIO =3 THEN 740 

730 LET C=0\GO TO 7 50 

740 LET C=1 

750 PRINT 

760 REM K COUNTS THE TOTAL QUESTION NUMBER 

770 LET K=K+1 

750 REM NEXT QUESTION 

790 GO TO 260 

60# .CLOSE #.l 

610 PRINT\PRINT "THAT WAS THE LAST QUESTION. THANK YOU FOR YOUR HELP 
620 PRINT "GOODBYE ";N$ 

630 PHINT\PKINT 
640 FILE #2:"PTEXT" 

650 PRINT "PAEDIATRIC SUMMARY" t NS »DATS C X) 

660 PRINT 

070 FOR L=1 TO K-l 
660 INPUT #2:T3> 

690 LET M=VALCSEGSCTS,1,1)) 

900 LET TS=SEGSCTS>2^60) 

910 IF Mol THEN 960 
920 PRINT 

930 REM ! DENOTES A NEW PaHA 
940 IF T$="!" THEN 970 
950 REM PRINT HEADING 
960 PRINT\PRINT Ta>\PRI NT 
970 LET L=L-1\G0 TO 1070 
960 IF AC L)<>1 THEN 1010 
990 IF TS ="#" THEN 1010 

1000 print t$ 

1010 FOR 1=2 TO M 
1020 INPUT #2:T$ 

1030 IF IoACL) THEN 1060 
1040 IF T$="#" THEN 1060 
10 50 PRINT T.l) 

1060 NEXT I 
1070 NEXT L 
1060 CLOSE *2 

1090 REM STORE CODED ANSWER 
1100 FILEVN #2:NS 

1110 FOR L=1 TO K-1\PRINT #2 : AC L) VNEXT L 
1120 PRINT #2:99 
1130 CLOSE #2 

1150 REM PRINT PERFORMANCE VARIABLES 

1160 PRINTXPRINT "QUESTIONS ANSWERED ’DON'T UNDERSTAND*:"; 

1170 FOR M = 1 TO <J \PR I NT DC M) ; \NEXT M 

1160 PRINT\PKINT "TOTAL QUESTIONS ANSWERED:";Q 

1190 END 


READY 
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